home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / testfiles / TestImage2 < prev    next >
Text File  |  2002-10-27  |  2KB  |  75 lines
  1. scr <- Screen new
  2. scr setScreenModeID: 16r40D20041
  3. scr            open: 'TestImage2 Screen'
  4.  
  5. win <- Window new: 'TestImage2 Window'
  6.  
  7. win setFlags:       16r100F
  8. win setIDCMPFlags:  16r140
  9. win openOnScreen:   scr
  10.  
  11. crs <- Colors new: win
  12.  
  13. crs  makeColorMap: 16
  14.  
  15. crs setColorReg: 0  red: 0  green: 0  blue: 0
  16. crs setColorReg: 1  red: 15 green: 15 blue: 15
  17. crs setColorReg: 2  red: 15 green: 15 blue: 0
  18. crs setColorReg: 3  red: 15 green: 0  blue: 15
  19. crs setColorReg: 4  red: 15 green: 0  blue: 0
  20. crs setColorReg: 5  red: 0  green: 15 blue: 15
  21. crs setColorReg: 6  red: 0  green: 15 blue: 0
  22. crs setColorReg: 7  red: 0  green: 0  blue: 15
  23. crs setColorReg: 8  red: 0  green: 0  blue: 0
  24. crs setColorReg: 9  red: 5  green: 11 blue: 12
  25. crs setColorReg: 10 red: 3  green: 6  blue: 7
  26. crs setColorReg: 11 red: 0  green: 0  blue: 15
  27. crs setColorReg: 12 red: 0  green: 4  blue: 8
  28. crs setColorReg: 13 red: 14 green: 8  blue: 8
  29. crs setColorReg: 14 red: 11 green: 5  blue: 5
  30. crs setColorReg: 15 red: 12 green: 12 blue: 12
  31.  
  32. scr screenToFront
  33.  
  34. im2 <- Image new
  35.  
  36. im2 registerTo: win
  37.  
  38. im2 addImage: 64 height: 16 depth: 4
  39.  
  40. im2 setImageDataFrom: 'AmigaTalk:BlocksImage.asc'
  41.  
  42. im2 drawImageAt: 400 @ 150
  43.  
  44.  
  45. im <- Image new
  46.  
  47. im registerTo: win
  48.  
  49. im addImage: 64 height: 16 depth: 4
  50.  
  51. im grabImageFrom: win startPoint: 400 @ 150 endPoint: 464 @ 166
  52.  
  53. im saveImageIn: 'AmigaTalk:SavedImage.asc'
  54.  
  55. im drawImageAt: 20 @ 30
  56.  
  57. itxt <-IText new: 'Do NOT forget to close the window & Screen!'
  58.  
  59. itxt setPens:         1   @ 7
  60. itxt setITextOrigin:  100 @ 0
  61.  
  62. win printIText: itxt at: 30 @ 20
  63.  
  64. im  disposeImage
  65. im2 disposeImage
  66.  
  67. itxt dispose
  68.  
  69. crs  dispose
  70.  
  71. ('Done with TestImage!') print
  72.  
  73. ('Do NOT forget to close the window & Screen!') print
  74.  
  75.